#!
use HTML::TreeBuilder;
use HTML::FormatText;
 
$file = shift;
$tree = HTML::TreeBuilder->new->parse_file("$file");
 
$formatter = HTML::FormatText->new(leftmargin => 3, rightmargin => 100);
print $formatter->format($tree);